home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir30 / l2c-19.zip / STARTUP.LSP < prev    next >
Lisp/Scheme  |  1993-06-25  |  366b  |  10 lines
  1. ;;;
  2. ;;; Set these defaults when loading the routine.
  3. ;;;
  4. (defun S::L2CSTARTUP ()
  5.     (if (null dl:ecp) (setq dl:ecp 4))    ; default to auto endcaps
  6.     (if (null dl:snp) (setq dl:snp T))    ; default to snapping ON
  7.     (if (null dl:brk) (setq dl:brk T))    ; default to breaking ON
  8.     (if (null dl:osd) (setq dl:osd 0))    ; default to center alignment
  9. )
  10.